let rec fib n =
  if n < 3 then 1 else fib(n - 1) + fib(n - 2)
  ;;

fib 10;;
